module ItemsControlPage =
    type Crockery = { Title: string; Number: int }

    let items = [ for i in 1..1000 -> { Title = "dinner plate"; Number = i } ]

    let view () =

        VStack() {
            TextBlock("List of crockery:")

            ItemsControl(
                items,
                fun item ->
                    HStack() {
                        TextBlock(item.Title)
                        TextBlock(item.Number.ToString())
                    }
            )
                .itemsPanel(VirtualizingStackPanel())
        }